#!/usr/bin/perl

# $Id: 03_ftplisting.t 140 2010-06-26 14:47:54Z dolbanavt $
# $Date: 2010-06-26 17:47:58 +0300 (Суб, 26 Июн 2010) $
# $HeadURL: https://robosearch.googlecode.com/svn/branches/reborn/t/03_ftplisting.t $
# $LastChangedRevision$

use FindBin qw( $RealBin );
use File::Spec::Functions qw( catfile );

BEGIN {
    push @INC, catfile( $RealBin, '..', 'base_lib' );
    push @INC, catfile( $RealBin, '..', 'lib' );
}

use JIP::ToolSet;
use English qw( -no_match_vars );
use Test::More tests => 7;
use Const::Fast qw( const );
use Test::Exception;

const my $MODULE => 'FTPListing';

use_ok $MODULE;
require_ok $MODULE;

can_ok $MODULE, qw( new parse_listing_for );

my $parser = $MODULE->new();

ok $parser, 'got object';

isa_ok $parser, $MODULE;
isa_ok $parser, 'JIP::BaseClass';

throws_ok { $parser->parse_listing_for(); }
    qr{^parse_listing_for\(\)\sis\sabstract\smethod}xms,
    'parse_listing_for() - abstract method';
